local({fn<-choose.files(filters=Filters[c('R','txt','All'),],index=4)
file.show(fn,header=fn,title='')})
nes<-read.csv("anes2008.csv")
summary(nes$welfareppl)
summary(nes$poorppl)
boxplot(nes$welfareppl, col="orange")
boxplot(nes$poorppl, col="green")
install.packages("car")
library(car)
scatterplot(nes$welfareppl, nes$poorppl)
save.image("C:\\r documentation\\R on WP V PP")
